home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
E.M.Computergraphic Phase 4
/
Phase 4 - Desktop Video Dreams (E. M. Computergraphic)(1996).iso
/
utilities
/
jacosub
/
rexx
/
loadscript.jsrx
< prev
next >
Wrap
Text File
|
1996-01-02
|
424b
|
21 lines
/* JACOsub LOADSCRIPT command demonstration.
This command causes JACOsub load a script into its editor.
SAVESCRIPT returns RESULT=0 if successful, or RESULT=1 if a problem
occurred.
*/
if ~arg() then do ; say 'No file name.' ; exit 1 ; end
parse arg filename
options results
address 'JACOsub'
'LOADSCRIPT' filename
if result then
say 'script failed to load'
else
say 'script loaded successfully'
exit result